home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / vol6n15.arc / DIRNOTES.BAS < prev    next >
BASIC Source File  |  1987-08-15  |  16KB  |  233 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE DIRNOTES.COM
  2. 110 OPEN "DIRNOTES.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  213 
  6. 150    LINESUM = 0
  7. 160    FOR J = 1 TO 8
  8. 170       READ BYTE
  9. 180       CHECKSUM = CHECKSUM + BYTE
  10. 190       LINESUM = LINESUM + BYTE
  11. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  12. 210       PUT #1
  13. 220    NEXT J
  14. 230    READ LINECHECK
  15. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  16. 250 NEXT I
  17. 260 CLOSE
  18. 270 IF CHECKSUM = 183438 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,   237,     0,    67,   111,   112,   121,   114,   995
  21. 300 DATA    105,   103,   104,   116,    32,    49,    57,    56,   622
  22. 310 DATA     55,    32,    90,   105,   102,   102,    45,    68,   599
  23. 320 DATA     97,   118,   105,   115,    32,    80,   117,    98,   762
  24. 330 DATA    108,   105,   115,   104,   105,   110,   103,    32,   782
  25. 340 DATA     67,   111,    46,    10,    13,    77,   105,    99,   528
  26. 350 DATA    104,    97,   101,   108,    32,    74,    46,    32,   594
  27. 360 DATA     77,   101,   102,   102,   111,   114,   100,    26,   733
  28. 370 DATA     68,    73,    82,    78,    45,    45,    45,    45,   481
  29. 380 DATA     46,    68,    65,    84,     0,    42,    46,    42,   393
  30. 390 DATA      0,     0,     0,     0,     0,   176,     7,   112,   295
  31. 400 DATA      0,     0,   227,     7,     0,     0,   179,    14,   427
  32. 410 DATA      1,     0,   147,     1,     0,     0,    78,   111,   338
  33. 420 DATA    116,    32,   101,   110,   111,   117,   103,   104,   794
  34. 430 DATA     32,   109,   101,   109,   111,   114,   121,    36,   733
  35. 440 DATA     73,   110,   118,    97,   108,   105,   100,    32,   743
  36. 450 DATA    100,   105,   114,   101,    99,   116,   111,   114,   860
  37. 460 DATA    121,    36,    84,   111,   111,    32,   109,    97,   701
  38. 470 DATA    110,   121,    32,   102,   105,   108,   101,   115,   794
  39. 480 DATA     36,    76,   111,    97,   100,   105,   110,   103,   738
  40. 490 DATA     32,    97,   110,   100,    32,   115,   111,   114,   711
  41. 500 DATA    116,   105,   110,   103,    32,   100,   105,   114,   785
  42. 510 DATA    101,    99,   116,   111,   114,   121,    32,   110,   804
  43. 520 DATA    111,   116,   101,   115,    46,     0,    68,   105,   662
  44. 530 DATA    114,   101,    99,   116,   111,   114,   121,    32,   808
  45. 540 DATA    111,   102,    32,     0,    32,    32,    32,    32,   373
  46. 550 DATA     70,   105,   108,   101,   115,     0,    80,   114,   693
  47. 560 DATA    101,   115,   115,    32,    69,   115,    99,    32,   678
  48. 570 DATA    116,   111,    32,   101,   120,   105,   116,     0,   701
  49. 580 DATA     83,    97,   118,   105,   110,   103,    32,     0,   648
  50. 590 DATA    252,   180,    25,   205,    33,   162,    81,     1,   939
  51. 600 DATA    190,   161,     7,   232,    83,     4,   131,   252,  1060
  52. 610 DATA    220,   186,   102,     1,   119,     3,   233,    57,   921
  53. 620 DATA      5,   128,    62,   128,     0,     0,   116,    55,   494
  54. 630 DATA    190,   129,     0,   172,    60,    13,   116,    47,   727
  55. 640 DATA     60,    32,   118,   247,    86,   172,    60,    13,   788
  56. 650 DATA    116,    19,    60,    58,   117,   247,   138,    84,   839
  57. 660 DATA    254,   128,   226,    95,   128,   234,    65,   180,  1310
  58. 670 DATA     14,   205,    33,   235,   232,   198,    68,   255,  1240
  59. 680 DATA      0,    90,    74,   180,    59,   205,    33,   186,   827
  60. 690 DATA    120,     1,   115,     3,   233,   251,     4,   190,   917
  61. 700 DATA    128,     0,   232,     4,     4,   252,   172,    60,   852
  62. 710 DATA      0,   117,   251,    78,   253,   128,    36,    95,   958
  63. 720 DATA    172,    60,    92,   117,   248,   252,    70,    70,  1081
  64. 730 DATA    191,    69,     1,   185,     3,     0,   128,    60,   637
  65. 740 DATA      0,   116,     3,   164,   226,   248,   184,    64,  1005
  66. 750 DATA      0,   142,   216,   161,    99,     0,     5,     6,   629
  67. 760 DATA      0,    14,    31,   163,    82,     1,    61,   186,   538
  68. 770 DATA      3,   116,    23,   199,     6,    84,     1,     0,   432
  69. 780 DATA    184,    50,   255,   180,     8,   205,    16,   136,  1034
  70. 790 DATA     38,    86,     1,   128,   244,   119,   136,    38,   790
  71. 800 DATA     87,     1,   232,   127,     3,   190,   153,     1,   794
  72. 810 DATA    186,    21,    12,   232,   133,     3,   191,   227,  1005
  73. 820 DATA      7,   185,    48,   117,   184,    32,    32,   243,   848
  74. 830 DATA    171,   186,    77,     1,   185,     6,     0,   180,   806
  75. 840 DATA     78,   205,    33,   115,     3,   233,   139,     4,   810
  76. 850 DATA    191,   227,     7,   189,    96,   234,   232,   147,  1323
  77. 860 DATA      3,   180,    79,   205,    33,   114,    17,   255,   886
  78. 870 DATA      6,    96,     1,   232,   134,     3,    59,   253,   784
  79. 880 DATA    114,   239,   186,   138,     1,   233,    98,     4,  1013
  80. 890 DATA    137,    62,    92,     1,   139,    30,    96,     1,   558
  81. 900 DATA    139,   195,   177,    10,   253,   191,   206,     1,  1172
  82. 910 DATA    246,   241,   134,   196,     4,    48,   170,   134,  1173
  83. 920 DATA    196,    50,   228,    61,     0,     0,   117,   240,   892
  84. 930 DATA    252,   131,   251,    20,   119,    16,   184,   160,  1133
  85. 940 DATA      0,   246,   227,     5,   147,     1,   163,    94,   883
  86. 950 DATA      1,   131,   251,     1,   116,    65,   139,    22,   726
  87. 960 DATA     92,     1,   131,   234,    81,   189,     0,     0,   728
  88. 970 DATA    187,   227,     7,   139,   243,   139,   251,   131,  1324
  89. 980 DATA    199,    81,   185,    12,     0,   243,   166,   118,  1004
  90. 990 DATA     21,   139,   243,   139,   251,   131,   199,    81,  1204
  91. 1000 DATA   185,    40,     0,   139,     5,   165,   137,    68,   739
  92. 1010 DATA   254,   226,   248,   189,     1,     0,   131,   195,  1244
  93. 1020 DATA    81,    59,   218,   114,   214,   131,   253,     0,  1070
  94. 1030 DATA   116,     5,   131,   234,    81,   235,   198,   186,  1186
  95. 1040 DATA    64,     1,   184,     0,    61,   205,    33,   114,   662
  96. 1050 DATA   114,   139,   216,    83,    91,    83,   186,    96,  1008
  97. 1060 DATA   234,   185,   181,    11,   180,    63,   205,    33,  1092
  98. 1070 DATA    61,     0,     0,   116,    89,     3,   208,   139,   616
  99. 1080 DATA   250,   198,     5,    26,    61,   181,    11,   116,   848
  100. 1090 DATA     5,   198,     6,   100,     1,     1,   189,   227,   727
  101. 1100 DATA     7,   187,    96,   234,   139,   243,   139,   253,  1298
  102. 1110 DATA   185,     6,     0,   243,   167,   117,    30,   131,   879
  103. 1120 DATA   198,    28,   131,   199,    28,   185,    20,     0,   789
  104. 1130 DATA   243,   165,   131,   238,    67,   131,   239,    67,  1281
  105. 1140 DATA   185,    13,     0,   243,   167,   117,    14,   198,   937
  106. 1150 DATA    70,    39,    32,   235,     8,   131,   195,    81,   791
  107. 1160 DATA   128,    63,    26,   117,   207,   131,   197,    81,   950
  108. 1170 DATA    62,   128,   126,     0,    32,   117,   194,   128,   787
  109. 1180 DATA    62,   100,     1,     1,   117,   150,    91,   180,   702
  110. 1190 DATA    62,   205,    33,   161,    84,     1,   142,   192,   880
  111. 1200 DATA   186,     4,     0,   190,   190,     1,   232,    74,   877
  112. 1210 DATA     2,   180,    25,   205,    33,     4,    65,   232,   746
  113. 1220 DATA    83,     2,   176,    58,   232,    78,     2,   190,   821
  114. 1230 DATA   128,     0,   232,    92,     2,    78,   232,    57,   821
  115. 1240 DATA     2,   186,    14,    24,   190,   204,     1,   232,   853
  116. 1250 DATA    41,     2,   186,    51,    24,   190,   214,     1,   709
  117. 1260 DATA   232,    32,     2,   138,    30,    87,     1,   232,   754
  118. 1270 DATA   138,     1,   232,   211,     1,   199,     6,    88,   876
  119. 1280 DATA     1,    41,     2,   232,    38,     2,   180,     0,   496
  120. 1290 DATA   205,    22,    60,    32,   114,    16,   128,    62,   639
  121. 1300 DATA    88,     1,    79,   116,   238,   232,   129,     1,   884
  122. 1310 DATA   254,     6,    88,     1,   235,   229,   128,   252,  1193
  123. 1320 DATA    28,   117,     7,   198,     6,    88,     1,    41,   486
  124. 1330 DATA   235,    80,   128,   252,    14,   117,    18,   128,   972
  125. 1340 DATA    62,    88,     1,    41,   116,   205,   254,    14,   781
  126. 1350 DATA    88,     1,   176,    32,   232,    90,     1,   235,   855
  127. 1360 DATA   194,   128,   252,    75,   117,    13,   128,    62,   969
  128. 1370 DATA    88,     1,    41,   116,   182,   254,    14,    88,   784
  129. 1380 DATA     1,   235,   176,   128,   252,    77,   117,    13,   999
  130. 1390 DATA   128,    62,    88,     1,    79,   116,   164,   254,   892
  131. 1400 DATA     6,    88,     1,   235,   158,   128,   252,    72,   940
  132. 1410 DATA   117,    11,   189,    96,   255,   186,     0,   255,  1109
  133. 1420 DATA   232,   218,     0,   235,   142,   128,   252,    80,  1287
  134. 1430 DATA   117,    12,   189,   160,     0,   186,     0,     1,   665
  135. 1440 DATA   232,   202,     0,   233,   125,   255,   128,   252,  1427
  136. 1450 DATA    73,   117,     8,   189,    91,   249,   232,   124,  1083
  137. 1460 DATA     0,   235,    34,   128,   252,    81,   117,     8,   855
  138. 1470 DATA   189,   165,     6,   232,   111,     0,   235,     5,   943
  139. 1480 DATA   128,   252,   132,   117,    11,   190,   147,     1,   978
  140. 1490 DATA   199,     6,    88,     1,    41,     2,   235,    33,   605
  141. 1500 DATA   128,   252,   118,   117,    39,   139,    54,    94,   941
  142. 1510 DATA     1,   139,   198,   129,   238,   160,     0,    45,   910
  143. 1520 DATA   243,     0,    51,   210,   187,   160,     0,   247,  1098
  144. 1530 DATA   243,   138,   240,   178,    41,   137,    22,    88,  1087
  145. 1540 DATA     1,   232,   157,     0,   232,    85,     1,   232,   940
  146. 1550 DATA   246,     0,   235,    46,   128,   252,    71,   117,  1095
  147. 1560 DATA     8,   199,     6,    90,     1,   227,     7,   235,   773
  148. 1570 DATA   188,   128,   252,    79,   117,    20,   139,    30,   953
  149. 1580 DATA    92,     1,   129,   235,   165,     6,   129,   251,  1008
  150. 1590 DATA   227,     7,   118,   185,   137,    30,    90,     1,   795
  151. 1600 DATA   235,   179,   128,   252,     1,   117,     3,   233,  1148
  152. 1610 DATA    41,     2,   233,   246,   254,   139,    54,    90,  1059
  153. 1620 DATA     1,     3,   245,   121,     6,   129,   253,    91,   849
  154. 1630 DATA   249,   116,     6,   129,   254,   227,     7,   115,  1103
  155. 1640 DATA     8,   199,     6,    90,     1,   227,     7,   235,   773
  156. 1650 DATA    32,   139,    30,    92,     1,   129,   251,   136,   810
  157. 1660 DATA    14,   119,     8,   199,     6,    90,     1,   227,   664
  158. 1670 DATA     7,   235,    14,   129,   235,   165,     6,    59,   850
  159. 1680 DATA   243,   118,     2,   139,   243,   137,    54,    90,  1026
  160. 1690 DATA     1,   232,   132,     0,   195,   139,    54,    98,   851
  161. 1700 DATA     1,     3,   245,   189,   175,   255,   129,   254,  1251
  162. 1710 DATA   147,     1,   114,    17,   189,    81,     0,    59,   608
  163. 1720 DATA    54,    94,     1,   115,     8,     1,    22,    88,   383
  164. 1730 DATA     1,   232,     5,     0,   195,   232,   157,   255,  1077
  165. 1740 DATA   195,   138,    30,    86,     1,   232,    12,     0,   694
  166. 1750 DATA   137,    54,    98,     1,   138,    30,    87,     1,   546
  167. 1760 DATA   232,     1,     0,   195,   139,    62,    98,     1,   728
  168. 1770 DATA   183,    38,   139,    22,    82,     1,   185,     1,   651
  169. 1780 DATA     0,   232,    93,     0,   254,   207,   117,   246,  1149
  170. 1790 DATA   195,    80,   139,    54,    90,     1,   161,    88,   808
  171. 1800 DATA     1,   139,   200,   138,   196,    50,   228,    72,  1024
  172. 1810 DATA    72,     3,   240,   178,    80,   246,   226,     3,  1048
  173. 1820 DATA   240,   139,   248,   209,   231,   129,   199,    64,  1459
  174. 1830 DATA     1,    50,   237,     3,   241,   209,   225,     3,   969
  175. 1840 DATA   249,    88,   136,     4,   185,     1,     0,   232,   895
  176. 1850 DATA    32,     0,   198,     6,   101,     1,     1,   195,   534
  177. 1860 DATA   139,    54,    90,     1,   191,    64,     1,   183,   723
  178. 1870 DATA    21,   185,    79,     0,   232,    11,     0,   131,   659
  179. 1880 DATA   198,     2,   131,   199,     2,   254,   207,   117,  1110
  180. 1890 DATA   240,   195,   139,    22,    82,     1,   172,   138,   989
  181. 1900 DATA   216,   236,   168,     1,   117,   251,   250,   236,  1475
  182. 1910 DATA   168,     1,   116,   251,   138,   195,   170,   251,  1290
  183. 1920 DATA    71,   226,   235,   195,   138,    62,    86,     1,  1014
  184. 1930 DATA    51,   201,   186,    79,    24,   184,     0,     6,   731
  185. 1940 DATA   205,    16,   195,   137,    22,    88,     1,   232,   896
  186. 1950 DATA    18,     0,   172,    60,     0,   116,     5,   232,   603
  187. 1960 DATA     3,     0,   235,   246,   195,    86,   180,    14,   959
  188. 1970 DATA   205,    16,    94,   195,    86,   139,    22,    88,   845
  189. 1980 DATA     1,    50,   255,   180,     2,   205,    16,    94,   803
  190. 1990 DATA   195,   198,     4,    92,    70,    50,   210,   180,   999
  191. 2000 DATA    71,   205,    33,   195,   190,   158,     0,   185,  1037
  192. 2010 DATA    12,     0,   172,    60,     0,   116,    19,    60,   439
  193. 2020 DATA    46,   117,    12,   131,   233,     3,   176,    32,   750
  194. 2030 DATA   243,   170,   131,   193,     3,   235,   235,   170,  1380
  195. 2040 DATA   226,   232,   176,    32,   243,   170,    87,   131,  1297
  196. 2050 DATA   199,     8,   139,    22,   154,     0,   161,   156,   839
  197. 2060 DATA     0,   187,    10,     0,   253,   139,   202,    51,   842
  198. 2070 DATA   210,   247,   243,   145,   247,   243,   146,     4,  1485
  199. 2080 DATA    48,   170,   139,   193,    11,   202,   117,   237,  1117
  200. 2090 DATA   252,    95,   131,   199,    11,   139,    22,   152,  1001
  201. 2100 DATA     0,   139,   194,   177,     5,   211,   200,    37,   963
  202. 2110 DATA    15,     0,   177,   255,   181,    45,   232,   116,  1021
  203. 2120 DATA     0,   139,   194,    37,    31,     0,   177,     0,   578
  204. 2130 DATA   181,    45,   232,   104,     0,   139,   194,   177,  1072
  205. 2140 DATA     9,   211,   200,    37,   127,     0,     5,    80,   669
  206. 2150 DATA     0,    61,   100,     0,   114,     3,    45,   100,   423
  207. 2160 DATA     0,   177,     0,   181,    32,   232,    77,     0,   699
  208. 2170 DATA    71,   139,    22,   150,     0,   139,   194,   177,   892
  209. 2180 DATA    11,   211,   200,    37,    31,     0,    80,    61,   631
  210. 2190 DATA    12,     0,   118,     3,    45,    12,     0,    61,   251
  211. 2200 DATA     0,     0,   117,     3,   184,    12,     0,   177,   493
  212. 2210 DATA   255,   181,    58,   232,    39,     0,   139,   194,  1098
  213. 2220 DATA   177,     5,   211,   200,    37,    63,     0,   177,   870
  214. 2230 DATA     0,    90,   181,   112,   131,   250,    12,   115,   891
  215. 2240 DATA     2,   181,    97,   232,    15,     0,   198,     5,   730
  216. 2250 DATA    85,   198,    69,    40,    13,   198,    69,    41,   713
  217. 2260 DATA    10,   131,   199,    42,   195,   246,   243,     5,  1071
  218. 2270 DATA    48,    48,   128,   249,     0,   116,     6,    60,   655
  219. 2280 DATA    48,   117,     2,   176,    32,   171,   138,   197,   881
  220. 2290 DATA   170,   195,   180,     9,   205,    33,   232,    72,  1096
  221. 2300 DATA     0,   205,    32,   199,     6,    88,     1,     0,   531
  222. 2310 DATA    23,   232,   240,   254,   128,    62,   101,     1,  1041
  223. 2320 DATA     1,   117,    37,   190,   232,     1,   232,   209,  1019
  224. 2330 DATA   254,   190,    64,     1,   232,   203,   254,   186,  1384
  225. 2340 DATA    64,     1,   185,    32,     0,   180,    60,   205,   727
  226. 2350 DATA    33,   139,   216,   186,   227,     7,   139,    14,   961
  227. 2360 DATA    92,     1,    43,   202,   180,    64,   205,    33,   820
  228. 2370 DATA   232,    14,     0,   199,     6,    88,     1,     0,   540
  229. 2380 DATA     0,   232,   184,   254,   232,   141,   254,   205,  1502
  230. 2390 DATA    32,   138,    22,    81,     1,   180,    14,   205,   673
  231. 2400 DATA    33,   186,   161,     7,   180,    59,   205,    33,   864
  232. 2410 DATA   195,     0,     0,     0,     0,     0,     0,     0,   195
  233.